home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / misc / emu / AMIGHPv2a.lha / AMIGHPv2a / EXAMPLES / CHAINE?.s < prev    next >
Text File  |  1996-09-24  |  275b  |  26 lines
  1.     include    entries.i
  2.     con(5)    DOCODE
  3. Debut    con(5)    Fin-Debut
  4.  
  5. I    equ    $800F5
  6.  
  7.  
  8.     GOSBVL    $0679B
  9.     D0=(5)    $800F5
  10.     A=DAT1    A
  11.     DAT0=A    A
  12.     C=A    A
  13.     D1=C
  14.     A=DAT1    A
  15.     DAT0=A    A
  16.     R0=A    A
  17.     GOSBVL    $067D2
  18.     GOSBVL    $06537
  19.     GOSBVL    $0679B
  20.     LAHEX    $800F5
  21.     D0=A
  22.     GOSBVL    $067D2
  23.     A=DAT0    A
  24.     D0=D0+    5
  25.     PC=(A)
  26. Fin